0 REM << CD26-3 >>
1 REM  COMMODARE #22-3 :
2 REM         MEASURED DECIMALS
3 REM  SOLUTION BY MATT SHAPIRO
4 REM
10 INPUT"HOW MANY INCHES (DECIMAL)";D
20 W=INT(D):N=INT(64*(D-W)+.5):D=64:IF N=64 THEN PRINT W+1 : END
30 N2=N/2:IF N2=INT(N2) THEN N=N2:D=D/2:GOTO 30
40 PRINT W;"AND";STR$(N);"/";MID$(STR$(D),2):END